-- card: 2847 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 2667
-- name: 
----- HyperTalk script -----




-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=238 top=210 right=225 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Magic Cursor
----- HyperTalk script -----
on mouseUp
  answer "What a cursor!" with "OK"
end mouseUp

on mouseWithin
  repeat while mousein () = true
    set the cursor to 3
  end repeat
end mouseWithin

function mousein
--this function was conceived by Dave Edmondson
if the mouseH >= item 1 of the rect of button "Magic Cursor" and the mouseH <= item 3 of the rect of button "Magic Cursor" and the mouseV >= item 2 of the rect of button "Magic Cursor" and the mouseV <= item 4 of the rect of button "Magic Cursor" then
  return true
else return false
end mousein






-- part 18 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=114 top=236 right=278 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Great Buttons
----- HyperTalk script -----
on mouseUp
  go to stack "Great Buttons"
end mouseUp



-- part contents for background part 6
----- text -----
Place the cursor over the word “here” and watch the cursor change.

-- part contents for background part 11
----- text -----
This is a public domain stack from Maurice Volaski (29 Callodine Ave. Amherst, NY 14226-3125). 
It is a demonstration of buttons with various scripts.
Have Fun.
This info box will self-destruct in 15 seconds.
It has been seconds so far.